home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / TOTDEMO.ARJ / DEMLS2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  1KB  |  54 lines
  1. program DemoList2;
  2. {demls2}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totLIST, totIO1;
  6.  
  7. Var
  8.    Items : array [1..20] of string[30];
  9.    ListWin:  ListArrayObj;
  10.  
  11. procedure FillArray;
  12. {}
  13. begin
  14.    Items[1] := 'One';
  15.    Items[2] := 'Two';
  16.    Items[3] := 'Three';
  17.    Items[4] := 'Four';
  18.    Items[5] := 'Five';
  19.    Items[6] := 'Six';
  20.    Items[7] := 'Seven';
  21.    Items[8] := 'Eight';
  22.    Items[9] := 'Nine';
  23.    Items[10] := 'Ten';
  24.    Items[11] := 'Eleven';
  25.    Items[12] := 'Twelve';
  26.    Items[13] := 'Thirteen';
  27.    Items[14] := 'Fourteen';
  28.    Items[15] := 'Fifteen';
  29.    Items[16] := 'Sixteen';
  30.    Items[17] := 'Seventeen';
  31.    Items[18] := 'Eighteen';
  32.    Items[19] := 'Nineteen';
  33.    Items[20] := 'Twenty';
  34. end; {FillArray}
  35.  
  36. begin
  37.    Screen.Clear(white,'░'); {paint the screen}
  38.    FillArray;
  39.    with ListWin do
  40.    begin
  41.       Init;
  42.       AssignList(Items,20,30,true);
  43.       SetColWidth(15);
  44.       Win^.SetTitle(' Pick a number! ');
  45.       Win^.SetSize(24,7,55,18,2);
  46.       Win^.SetColors(32,32,47,46);
  47.       SetColors(110,32,31);
  48.       Go;
  49.       Done;
  50.    end;
  51. end.
  52.  
  53.  
  54.